home *** CD-ROM | disk | FTP | other *** search
/ Chip 2007 January, February, March & April / Chip-Cover-CD-2007-02.iso / Pakiet bezpieczenstwa / mini Pentoo LiveCD 2006.1 / mpentoo-2006.1.iso / livecd.squashfs / usr / share / irssi / scripts / mlock.pl < prev    next >
Text File  |  2006-05-02  |  3KB  |  136 lines
  1. # /MLOCK <channel> <mode>
  2. #
  3. # Locks the channel mode to <mode>, if someone else tries to change the mode
  4. # Irssi will automatically change it back. +k and +l are a bit special since
  5. # they require the parameter. If you omit the parameter, like setting the
  6. # mode to "+ntlk", Irssi will allow all +k and +l (or -lk) mode changes.
  7. # You can remove the lock with /MODE #channel -
  8.  
  9. use Irssi;
  10. use Irssi::Irc;
  11. use strict;
  12. use vars qw($VERSION %IRSSI);
  13.  
  14. $VERSION = "1.00";
  15. %IRSSI = (
  16.     authors     => 'Timo Sirainen',
  17.     name        => 'mlock',
  18.     description => 'Channel mode locking',
  19.     license     => 'Public Domain',
  20.     changed    => 'Sun Mar 10 23:18 EET 2002'
  21. );
  22.  
  23. my %keep_channels;
  24.  
  25. sub cmd_mlock {
  26.     my ($data, $server) = @_;
  27.     my ($channel, $mode) = split(/ /, $data, 2);
  28.  
  29.     if ($mode eq "-") {
  30.         # remove checking
  31.         delete $keep_channels{$channel};
  32.     } else {
  33.         $keep_channels{$channel} = $mode;
  34.         mlock_check_mode($server, $channel);
  35.     }
  36. }
  37.  
  38. sub mlock_check_mode {
  39.         my ($server, $channame) = @_;
  40.  
  41.     my $channel = $server->channel_find($channame);
  42.     return if (!$channel || !$channel->{chanop});
  43.  
  44.         my $keep_mode = $keep_channels{$channame};
  45.     return if (!$keep_mode);
  46.  
  47.     # old channel mode
  48.     my ($oldmode, $oldkey, $oldlimit);
  49.     $oldmode = $channel->{mode};
  50.         $oldmode =~ s/^([^ ]*).*/\1/;
  51.     $oldkey = $channel->{key};
  52.     $oldlimit = $channel->{limit};
  53.  
  54.     # get the new channel key/limit
  55.     my (@newmodes, $newkey, $limit);
  56.     @newmodes = split(/ /, $keep_mode); $keep_mode = $newmodes[0];
  57.     if ($keep_mode =~ /k/) {
  58.         if ($keep_mode =~ /k.*l/) {
  59.                         $newkey = $newmodes[1];
  60.                         $limit = $newmodes[2];
  61.         } elsif ($keep_mode =~ /l.*k/) {
  62.             $limit = $newmodes[1];
  63.                         $newkey = $newmodes[2];
  64.         } else {
  65.                         $newkey = $newmodes[1];
  66.         }
  67.     } elsif ($keep_mode =~ /l/) {
  68.         $limit = $newmodes[1];
  69.     }
  70.  
  71.     # check the differences
  72.     my %allmodes;
  73.     $keep_mode =~ s/^\+//;
  74.     for (my $n = 0; $n < length($keep_mode); $n++) {
  75.         my $modechar = substr($keep_mode, $n, 1);
  76.         $allmodes{$modechar} = '+';
  77.     }
  78.  
  79.     for (my $n = 0; $n < length($oldmode); $n++) {
  80.         my $modechar = substr($oldmode, $n, 1);
  81.  
  82.         if ($allmodes{$modechar} eq '+') {
  83.             next if (($modechar eq "k" && $newkey ne $oldkey) ||
  84.                  ($modechar eq "l" && $limit != $oldlimit));
  85.             delete $allmodes{$modechar};
  86.         } else {
  87.             $allmodes{$modechar} = '-';
  88.         }
  89.     }
  90.  
  91.     # create the mode change string
  92.     my ($modecmd, $extracmd);
  93.     foreach my $mode (keys %allmodes) {
  94.         Irssi::print("key = '$mode':".$allmodes{$mode});
  95.         if ($mode eq "k") {
  96.             if ($allmodes{$mode} eq '+') {
  97.                 next if ($newkey eq "");
  98.                 if ($oldkey ne "") {
  99.                     # we need to get rid of old key too
  100.                     $modecmd .= "-k";
  101.                     $extracmd .= " $oldkey";
  102.                 }
  103.                 $extracmd .= " $newkey";
  104.             } else {
  105.                 $extracmd .= " $oldkey";
  106.             }
  107.         }
  108.         if ($mode eq "l" && $allmodes{$mode} eq '+') {
  109.             next if ($limit <= 0);
  110.                         $extracmd .= " $limit";
  111.         }
  112.         $modecmd .= $allmodes{$mode}.$mode;
  113.     }
  114.  
  115.     if ($modecmd ne "") {
  116.         $channel->{server}->command("mode $channame $modecmd$extracmd");
  117.     }
  118. }
  119.  
  120. sub mlock_mode_changed {
  121.     my ($server, $data) = @_;
  122.     my ($channel, $mode) = split(/ /, $data, 2);
  123.  
  124.     mlock_check_mode($server, $channel);
  125. }
  126.  
  127. sub mlock_synced {
  128.     my $channel = $_[0];
  129.  
  130.     mlock_check_mode($channel->{server}, $channel->{name});
  131. }
  132.  
  133. Irssi::command_bind('mlock', 'cmd_mlock');
  134. Irssi::signal_add_last("event mode", "mlock_mode_changed");
  135. Irssi::signal_add("channel synced", "mlock_synced");
  136.